﻿Public Class sum
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As Single
        Dim b As Single

        a = CSng(box1.Text)
        b = CSng(box2.Text)

        Dim sum As Single

        sum = a + b
        results.Text = "The sum is " & sum
    End Sub
End Class